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LL I] SSSSSS : 
LL I] SS : 
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, ¥ 1 OQ RTITLE "EDTSSCRBLOB - show a blob on the screen’ é 
; § ¢ MODULE EDTSSCRBLOB ( ! Show ., blob on the screen : 
: Z gDENT = *'v04-000' File: SCRBLOB.BLI Edit: J8S1005 ‘ 
3 5 5 BEGIN ; 
: § $ } i eeeeeeeneeneeeeereneeeerereeeeeereneeeeeereeeeeereneeeeeeneeeeeeneeeeeeneees Py 
$ '® & 5 
3 3 1 '* COPYRIGHT (c) 1978, 1980, 1982, 1984 8 * ; 
: 10 10 1 is DIGITAL EQUIPMENT CORPORATION. MAYNARD. MASSACHUSETTS. : : 
: 1 4) ! i. ALL RIGHTS RESERVED. . : 
; ig Big 1 ie lg her I$ pynni sce UNDER A ab ECERSE AND MAY BE USED AND COPIED * : 
3 14 14 1 Ie EW THE UCH LICENSE AND WITH THE * : 
$ 15 015 1 I EL st OF m ABOVE Mop iRicuy NOTICE. This SOFTWARE OR ANY OTHER * ; 
3 18 aig 1 !® COPIES THEREOF = NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ; 
: 1 id 1 :® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ® ° 
: 18 18 is TRANSFERRED. * é 
: ' * 3 
$ $9 8 0 1 !® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE a : 
3 1 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * : 
; ¢ 88 ; : CORPORATION. . : 
; 4 0024 1 i* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * ‘ 
3 ; 89 5 : :: SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : ‘ 
; 7 00 5 1 ie * ; 
3 : sit : ‘aaa aca tact lane la i naan ‘ 
: 30 0030 1 : 
3 1 $03) 1 !e¢ : 
: 3 B3 § ; } FACILITY: EDT -=- The DEC Standard Editor : 
> 3% b034 1 | ABSTRACT: 

; 5 0035 1! 

3 6 0036 1! This module puts out the character indicating a wrapped or 

3 3s ott ' truncated Line. 

F +4 944 : ENVIRONMENT: Runs at any access mode - AST reentrant 

: 41 9041 i AUTHOR: Bob Kushlis, CREATION DATE: September 8, 1979 

F “§ se i MODIFIED BY: | 

: 45 bes 1 ' 1-001 - Original. DJS 12-Feb-1981. This module was created by 

; 46 B08 1! extracti ng the routine EDTS$SC_SHwWB from module SCREEN. 

: 47 1! 1- 0 - Regularize headers. ules 13-Mar-1 

; 648 3 1! 1- - Keep EDTS$$G_PRV to date. JBS 05-Oct-1982 

3 49 04 1! 1-004 - Advance HS veut LNPos Oe. JBS 13-Oct-19 

_—— 050 1 ! 1-005 = Don't increment EDT v_fOh L if 4g, are already at the right 

3 @} 051 1! edge ar the screen. 1Bs T6-0ct-19 

3 § 03g 1 le. 

; > ee 
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INCLUDE FILES: 
REQUIRE ‘EDTSRC:EDTREQ'; 
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EXTERNAL REFERENCES: 


NONE 
EQUATED SYMBOLS: 
NONE 
STORAGE 
NONE 
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042000 H tae _SHWBLOB = show a blob on the screen 1B-Fep-1984 93:38:33 DISKSVMSMASTER: tt i’sae SCRBLOB.BLI;1 fage (3) 

: 83 2 } ZSBTTL ‘EDTSSSC_SHWBLOB - show a blob on the screen’ : 
; 60 1 GLOBAL ROUTINE EDTS$$SC_SHWBLOB ! Show a blob on the screen ; 
ae | 661 1 : NOVALUE = : 
Py 9 $6 1 ° 
; § 1 tee 3 
; 9¢ ee) 1 FUNCTIONAL DESCRIPTION: : 
: 298 ! fois routine puts out the character which indicates a wrapped or truncated : 
H e. ° 
; F 1/ 3 
: Ri $9 } FORMAL PARAMETERS: : 
: 101 671 1! NONE : 
3 136 Ms 1/ 3 
; 10 7 1 | IMPLICIT INPUTS: é 
> 104 7% 13 : 
: He gore | EDTSCcTI ib 
: 199 oss ii : 
: 108 a 1 ' IMPLICIT OUTPUTS: ; 
; 109 79 13 3 
: 110 0680 1! EDTS$$G_PRV_COL 3 
3.061024 393) 1 EDT$$G_FMT_LNPOS 3 
; ie one 1 i 3 
.. oy 068 1 i ROUTINE VALUE: > 
: 61146 684 1! 3 
: 2. 5 1! NONE 3 
3; 116 86 1: : 
: 117 re 1 | SIDE EFFECTS: > 
: #4118 8 1 3 
3 «119 0689 1! NONE : 
: 120 690 1: 3 
3s 121 691 1 i- 3 
; 1 ; 984 1 3 
aS 69 BEGIN $ 
: 124 694 : 
> 125 695 EXTERNAL ROUTINE ; 
: 1$8 Cees EDTSSFMT_LIT; ! Output a string without expansion : 
: 128 0698 EXTERNAL : 
: 129 ay DT$$G_TI_TYP, ' Terminal type 3 
3; 1 0700 EDT$$G_PRV_COL ' Cursor column number 3 
s 131 701 EDTS$G_FMT LNPOS, ' Line position in the format buffer 3 
3 : § 44 EDTS$$G_T1I_OID; ! Width of the terminal : 
; 134 o703 IF _(.EDTS$6_T1_TYP EOL TERM_VT52) 3 
; : ” EDTSSFMT_LIT (UPLIT (ZSTRING (ZCHAR (ASC_K_ESC), ‘Fa’, %CHAR (ASC_K_ESC), 'G')), 5) 3 
; 138 208 EDTSSFMT_LIT (UPLIT (STRING (ZCHAR (ASC_K_SO), ''*, ZCHAR (ASC_K_SI))), 3); | ; 
; 140 10 IF (.EDTS$G_PRV_COL NEQ (.EDTS$$G_TI_WID - 1)) THEN EDT$$G_PRV_COL = .fDT$$G_PRV_COL + 1; ; 
: 148 rie EDTSS$G_FMT_LNPOS = .EDTS$G_FMT_LNPOS + 1; : 
3; (14 071 END; ! of routine EDTS$$SC_SHWBLOB : 
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compile 


ver-dao" 


_EDTSCODE 


File 


$255$DUA 
$255$DUA28 


HEE NOS EA co eects (Ugts8E | pMadbtnree id 
On? cae ! of module EDTSSCRBLOB 
718 0 ELUDOM 
PSECT SUMMARY 
Bytes Attributes 
71 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
essaness Syabe(s eocceese Pages Processing 
Total Loaded Percent Mapped Time 
:CEDT.SRCJEDT.L32;1 377 4 1 40 00:00.2 
:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 
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PL SSS/CMECK OS? FELD, NET LAL .OPT SMITE D/O TRACERALE/L ESA4. $551 SCROLCB/OR JCB IS: SCRBL OS MSRC$:SCRBLOB.BLI/UPDATE=(ENH$: SCRBLOB 


Blasced Time: 
Lines/CPU Min: 
Lexemes/CPU-Min: 1334 
Used: 
tion Complete 
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